netFrame Syntax:
function SelectRecord2(aTable: TRPCTable; aSearchString, aSearchFields, aShowFields: string; aPreSelectField, aPreSelectString: string): Integer
Beschreibung:
SelectRecord2() gibt einen einfachen Listendialog aus aus dem eine Auswahl getroffen werden kann.
Nachdem eine Auswahl getroffen worden ist, ist der aktuelle Datensatz in der Table auf die Auswahl positioniert worden.
Parameter:
- aTable: Die Tabelle die als Grundlage für die Auswahl dient
- aSearchString: Suchtext nach dem die Datenmenge durchsucht werden soll
- aSearchFields: Suchfelder in denen gesucht werden soll
- aShowFields: Welche Felder sollten im Darstellungesgitter angezeigt werden. Bitte beachten sie hier die Syntax (Feldname;Überschrift;Breite im Grid)
- aPreSelectField: Über welches Feld soll eine Vorpositionierung stattfinden
- aPreSelectString: Nach welchen Eintrag soll in dem aPreSelectField gesucht werden
- Result: Gibt den Wert mrOK zurück falls der Benutzer eine Auswahl getroffen hat
Tipps
Nur wenn ein Eintrag in den Übergabeparamtern aSearchString und aSearchFields gemacht worden ist,
wird eine Suche durchgeführt.
Falls etwas gefunden wurde, wird die Datenmenge auf das Suchergebnis eingeschränkt.
Mit der Auswahlbox "Alle anzeigen" kann jetzt trotzdem auf alle Datensätze zugegriffen werden.
Die Auswahlbox ist nur aktiv falls eine Suche erfolgreich war in der Table.
Beispiel:
procedure selectTimeType(aSearchString: string);
begin
if trim(aSearchString) = then
begin
TimeTypeID := ;
TimeTypeNumber := ;
LookUpTimeType.Text := ;
TimeTypeText := '';
end else
if SelectRecord2(TableTimeType, aSearchString,
'LU_NUMBER;LU_NAME', 'LU_NUMBER;Number;60;LU_NAME;Name;400',
'LU_NUMBER', LookUpTimeType.Text) = mrOK then
begin
TimeTypeID := TableTimeType.fieldByName('LU_ID').asString;
TimeTypeNumber := TableTimeType.fieldByName('LU_NUMBER').asString;
LookUpTimeType.Text := TimeTypeNumber;
TimeTypeText := TableTimeType.fieldByName('LU_NAME').asString;
end;
end;